home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb37363.lsp < prev    next >
Text File  |  1998-03-15  |  14KB  |  443 lines
  1. ;=============373.63 Abdeckprofil 32x4
  2.  
  3.  
  4. (EAITDBL "0037363")
  5. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  6. (princ)
  7.  
  8. (defun C:37363S1 (/ P0 P1 P2 P3 P4 P5 P6 E1 E2 E3 E4 E5 E6 Li Lix
  9.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  10.    (EAITDBL "0037363")
  11.    (princ (strcat "\n\n" EAITbez1))
  12.    (EAITvari)
  13.    (EAITvars)
  14.    (EAITbpt nil nil nil)
  15.    (setq P1 (getpoint))
  16.    (if (= P1 nil)(setq P1 (EAITrpt)))
  17.    (initget (+ 1 2 4))
  18.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  19.    (setq Li (getdist))
  20.    (setq Li (EAITck Li))
  21.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  22.    (initget 1)
  23.    (EAITmsg "mb_mld10" "\n" "004" nil)            ;Winkel
  24.    (setq Wi (getangle P1))
  25.    (setvar "OSMODE" 0)
  26.    (initget 1)
  27.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  28.    (setq KWi (getangle P1))
  29.  
  30.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  31.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  32.    (cond
  33.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  34.       ( (and (>= DWx 90) (< DWx 180))
  35.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  36.         )
  37.       )
  38.       ( (and (>= DWx 180) (< DWx 270))
  39.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  40.         )
  41.       )
  42.       ( T (setq W90 -90.0) )
  43.    )
  44.  
  45.    (setq P2 (polar P1 Wi Li)
  46.          P3 (polar P2 (+ Wi (EAITgib W90)) 4)
  47.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  48.          P5 (polar P1 (+ Wi (EAITgib W90)) 2)
  49.          P6 (polar P2 (+ Wi (EAITgib W90)) 2)        
  50.    )
  51.       
  52.    (command EAITlay EAITlse "EAIT50" "")
  53.    (command EAITlin P1 P2 "")
  54.    (setq E1 (entlast))
  55.    (command EAITlin P2 P3 P4 P1 "" 
  56.             EAITlin P5 P6 "" 
  57.    )
  58.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  59.          E5 (entnext E4) 
  60.    )
  61.  
  62.    (setq BName (EAITbnr))
  63.    (command EAITblo BName P1 E1 E2 E3 E4 E5 "")
  64.    (command EAITege BName P1 "" "" "")
  65.  
  66.    (setq Li (rtos (abs Li) 2 1))
  67.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  68.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  69.    )
  70.    (EAITvarz2)
  71.    (princ)
  72. );defun S1
  73.  
  74.  
  75. (defun C:37363SV (/ P0 P1 P2 P3 P4 P5 P6 E1 E2 E3 E4 E5 Li Lix
  76.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  77.    (EAITDBL "0037363")
  78.    (princ (strcat "\n\n" EAITbez1))
  79.    (EAITvari)
  80.    (EAITvars)
  81.    (EAITbpt nil nil nil)
  82.    (setq P1 (getpoint))
  83.    (if (= P1 nil)(setq P1 (EAITrpt)))
  84.    (initget (+ 1 2 4))
  85.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  86.    (setq Li (getdist))
  87.    (setq Li (EAITck Li))
  88.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  89.    (setq Wi (/ Pi 2))
  90.    (setvar "OSMODE" 0)
  91.    (initget 1)
  92.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  93.    (setq KWi (getangle P1))
  94.  
  95.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  96.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  97.    (cond
  98.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  99.       ( (and (>= DWx 90) (< DWx 180))
  100.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  101.         )
  102.       )
  103.       ( (and (>= DWx 180) (< DWx 270))
  104.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  105.         )
  106.       )
  107.       ( T (setq W90 -90.0) )
  108.    )
  109.  
  110.    (setq P2 (polar P1 Wi Li)
  111.          P3 (polar P2 (+ Wi (EAITgib W90)) 4)
  112.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  113.          P5 (polar P1 (+ Wi (EAITgib W90)) 2)
  114.          P6 (polar P2 (+ Wi (EAITgib W90)) 2)        
  115.    )
  116.    (command EAITlay EAITlse "EAIT50" "")
  117.    (command EAITlin P1 P2 "")
  118.    (setq E1 (entlast))
  119.    (command EAITlin P2 P3 P4 P1 "" 
  120.             EAITlin P5 P6 "" 
  121.    )
  122.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  123.          E5 (entnext E4) 
  124.    )
  125.  
  126.    (setq BName (EAITbnr))
  127.    (command EAITblo BName P1 E1 E2 E3 E4 E5 "")
  128.    (command EAITege BName P1 "" "" "")
  129.  
  130.    (setq Li (rtos (abs Li) 2 1))
  131.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  132.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  133.    )
  134.  
  135.    (EAITvarz2)
  136.    (princ)
  137. );defun SV
  138.  
  139. (defun C:37363SH (/ P0 P1 P2 P3 P4 P5 P6 E1 E2 E3 E4 E5 Li Lix
  140.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  141.    (EAITDBL "0037363")
  142.    (princ (strcat "\n\n" EAITbez1))
  143.    (EAITvari)
  144.    (EAITvars)
  145.  
  146.    (EAITbpt nil nil nil)
  147.    (setq P1 (getpoint))
  148.    (if (= P1 nil)(setq P1 (EAITrpt)))
  149.    (initget (+ 1 2 4))
  150.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  151.    (setq Li (getdist))
  152.    (setq Li (EAITck Li))
  153.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  154.    (setq Wi Pi)
  155.    (setvar "OSMODE" 0)
  156.    (initget 1)
  157.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  158.    (setq KWi (getangle P1))
  159.  
  160.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  161.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  162.    (cond
  163.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  164.       ( (and (>= DWx 90) (< DWx 180))
  165.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  166.         )
  167.       )
  168.       ( (and (>= DWx 180) (< DWx 270))
  169.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  170.         )
  171.       )
  172.       ( T (setq W90 -90.0) )
  173.    )
  174.  
  175.    (setq P2 (polar P1 Wi Li)
  176.          P3 (polar P2 (+ Wi (EAITgib W90)) 4)
  177.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  178.          P5 (polar P1 (+ Wi (EAITgib W90)) 2)
  179.          P6 (polar P2 (+ Wi (EAITgib W90)) 2)        
  180.    )
  181.    (command EAITlay EAITlse "EAIT50" "")
  182.    (command EAITlin P1 P2 "")
  183.    (setq E1 (entlast))
  184.    (command EAITlin P2 P3 P4 P1 "" 
  185.             EAITlin P5 P6 "" 
  186.    )
  187.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3)
  188.          E5 (entnext E4) 
  189.    )
  190.  
  191.    (setq BName (EAITbnr))
  192.    (command EAITblo BName P1 E1 E2 E3 E4 E5 "")
  193.    (command EAITege BName P1 "" "" "")
  194.  
  195.    (setq Li (rtos (abs Li) 2 1))
  196.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 2)  "" "" (+ (EAITbig Wi) W90)
  197.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  198.    )
  199.    (EAITvarz2)
  200.    (princ)
  201. );defun SH
  202.  
  203.  
  204. (defun C:37363D1 (/ P0 P1 P2 P3 P4 P5 P6 E1 Li Lix
  205.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  206.    (EAITDBL "0037363")
  207.    (princ (strcat "\n\n" EAITbez1))
  208.    (EAITvari)
  209.    (EAITvars)
  210.  
  211.    (EAITbpt nil nil nil)
  212.    (setq P1 (getpoint))
  213.    (if (= P1 nil)(setq P1 (EAITrpt)))
  214.    (initget (+ 1 2 4))
  215.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  216.    (setq Li (getdist))
  217.    (setq Li (EAITck Li))
  218.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  219.    (initget 1)
  220.    (EAITmsg "mb_mld10" "\n" "004" nil)            ;Winkel
  221.    (setq Wi (getangle P1))
  222.    (setvar "OSMODE" 0)
  223.    (initget 1)
  224.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  225.    (setq KWi (getangle P1))
  226.  
  227.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  228.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  229.    (cond
  230.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  231.       ( (and (>= DWx 90) (< DWx 180))
  232.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  233.         )
  234.       )
  235.       ( (and (>= DWx 180) (< DWx 270))
  236.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  237.         )
  238.       )
  239.       ( T (setq W90 -90.0) )
  240.    )
  241.  
  242.    (setq P2 (polar P1 Wi Li)
  243.          P3 (polar P2 (+ Wi (EAITgib W90)) 16)
  244.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  245.          P5 (polar P2 (+ Wi (EAITgib W90)) -16)
  246.          P6 (polar P5 (+ Wi (EAITgib 180)) Li)
  247.    )
  248.    (command EAITlay EAITlse "EAIT50" ""
  249.             EAITlin P3 P4 ""
  250.    )
  251.    (setq E1 (entlast)
  252.          Z 2)
  253.    (command EAITlin P4 P6 P5 P3 "")
  254.  
  255.    (repeat 15
  256.        (command EAITkop E1 "" P3 (polar P3 (- Wi (EAITgib W90)) Z))
  257.        (setq Z (+ Z 2))
  258.    );repeat 
  259.  
  260.    (setq BName (EAITbnr)
  261.          SS1 (EAITSS E1)
  262.    )
  263.  
  264.    (command EAITblo BName P1 SS1 "")
  265.    (command EAITege BName P1 "" "" "")
  266.  
  267.    (setq Li (rtos (abs Li) 2 1))
  268.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 10) (+ Wi (EAITgib W90)) 5)  "" "" (+ (EAITbig Wi) W90)
  269.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  270.    )
  271.    (EAITvarz2)
  272.    (princ)
  273. );defun D1
  274.  
  275.  
  276.  
  277. (defun C:37363DH (/ P0 P1 P2 P3 P4 P5 P6 E1 E2 E3 E4 E5 Li Lix
  278.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  279.    (EAITDBL "0037363")
  280.    (princ (strcat "\n\n" EAITbez1))
  281.    (EAITvari)
  282.    (EAITvars)
  283.  
  284.    (EAITbpt nil nil nil)
  285.    (setq P1 (getpoint))
  286.    (if (= P1 nil)(setq P1 (EAITrpt)))
  287.    (initget (+ 1 2 4))
  288.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  289.    (setq Li (getdist))
  290.    (setq Li (EAITck Li))
  291.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  292.    (setq Wi Pi)
  293.    (setvar "OSMODE" 0)
  294.    (initget 1)
  295.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  296.    (setq KWi (getangle P1))
  297.  
  298.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  299.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  300.    (cond
  301.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  302.       ( (and (>= DWx 90) (< DWx 180))
  303.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  304.         )
  305.       )
  306.       ( (and (>= DWx 180) (< DWx 270))
  307.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  308.         )
  309.       )
  310.       ( T (setq W90 -90.0) )
  311.    )
  312.  
  313.    (setq P2 (polar P1 Wi Li)
  314.          P3 (polar P2 (+ Wi (EAITgib W90)) 16)
  315.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  316.          P5 (polar P2 (+ Wi (EAITgib W90)) -16)
  317.         P6 (polar P5 (+ Wi (EAITgib 180)) Li)
  318.    )
  319.    (command EAITlay EAITlse "EAIT50" ""
  320.             EAITlin P3 P4 ""
  321.    )
  322.    (setq E1 (entlast)
  323.          Z 2)
  324.    (command EAITlin P4 P6 P5 P3 "")
  325.  
  326.    (repeat 15
  327.        (command EAITkop E1 "" P3 (polar P3 (- Wi (EAITgib W90)) Z))
  328.        (setq Z (+ Z 2))
  329.    );repeat 
  330.  
  331.    (setq BName (EAITbnr)
  332.          SS1 (EAITSS E1)
  333.    )
  334.  
  335.    (command EAITblo BName P1 SS1 "")
  336.    (command EAITege BName P1 "" "" "")
  337.  
  338.    (setq Li (rtos (abs Li) 2 1))
  339.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 10) (+ Wi (EAITgib W90)) 5)  "" "" (+ (EAITbig Wi) W90)
  340.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  341.    )
  342.    (EAITvarz2)
  343.    (princ)
  344. );defun DH
  345.  
  346.  
  347. (defun C:37363DV (/ P0 P1 P2 P3 P4 P5 P6 E1 E2 E3 E4 E5 Li Lix
  348.                    Wi KWi KWix DWx W90 Wix BName n Ben2)
  349.    (EAITDBL "0037363")
  350.    (princ (strcat "\n\n" EAITbez1))
  351.    (EAITvari)
  352.    (EAITvars)
  353.  
  354.    (EAITbpt nil nil nil)
  355.    (setq P1 (getpoint))
  356.    (if (= P1 nil)(setq P1 (EAITrpt)))
  357.    (initget (+ 1 2 4))
  358.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  359.    (setq Li (getdist))
  360.    (setq Li (EAITck Li))
  361.    (setq Li (atof (rtos Li 2 0)))                 ;Laenge des Zahnriemens
  362.    (setq Wi (/ Pi 2))
  363.    (setvar "OSMODE" 0)
  364.    (initget 1)
  365.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  366.    (setq KWi (getangle P1))
  367.  
  368.    (setq Wix (EAITbig Wi) KWix (EAITbig KWi))
  369.    (if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
  370.    (cond
  371.       ( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
  372.       ( (and (>= DWx 90) (< DWx 180))
  373.                          (progn (setq W90 -90.0 Wi (+ Wi (EAITgib 180)))
  374.         )
  375.       )
  376.       ( (and (>= DWx 180) (< DWx 270))
  377.           (progn (setq W90 90.0 Wi (+ Wi (EAITgib 180)))
  378.         )
  379.       )
  380.       ( T (setq W90 -90.0) )
  381.    )
  382.  
  383.    (setq P2 (polar P1 Wi Li)
  384.          P3 (polar P2 (+ Wi (EAITgib W90)) 16)
  385.          P4 (polar P3 (+ Wi (EAITgib 180)) Li)
  386.          P5 (polar P2 (+ Wi (EAITgib W90)) -16)
  387.         P6 (polar P5 (+ Wi (EAITgib 180)) Li)
  388.    )
  389.    (command EAITlay EAITlse "EAIT50" ""
  390.             EAITlin P3 P4 ""
  391.    )
  392.    (setq E1 (entlast)
  393.          Z 2)
  394.    (command EAITlin P4 P6 P5 P3 "")
  395.  
  396.    (repeat 15
  397.        (command EAITkop E1 "" P3 (polar P3 (- Wi (EAITgib W90)) Z))
  398.        (setq Z (+ Z 2))
  399.    );repeat 
  400.  
  401.    (setq BName (EAITbnr)
  402.          SS1 (EAITSS E1)
  403.    )
  404.  
  405.    (command EAITblo BName P1 SS1 "")
  406.    (command EAITege BName P1 "" "" "")
  407.  
  408.    (setq Li (rtos (abs Li) 2 1))
  409.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 10) (+ Wi (EAITgib W90)) 5)  "" "" (+ (EAITbig Wi) W90)
  410.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  411.    )
  412.    (EAITvarz2)
  413.    (princ)
  414. );defun DV
  415.  
  416.  
  417. (defun C:37363V1 ( / P1 Wi)
  418.    (EAITDBL "0037363")
  419.    (princ (strcat "\n\n" EAITbez1))
  420.      (EAITvari)
  421.      (EAITvars)
  422.      (setvar "ORTHOMODE" 0)
  423.      (EAITbpt nil nil nil)
  424.      (setq P1 (getpoint))
  425.      (if (= P1 nil)(setq P1 (EAITrpt)))
  426.      (setvar "OSMODE" 0)
  427.      (setvar "ORTHOMODE" 1)
  428.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  429.      (command EAITege (strcat EAITpfn "37363v1") P1 "" "" EAITofkei pause)
  430.  
  431.      (setq Wi (EAITbw))
  432.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 10)) 6.5) "" "" ""
  433.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  434.      )
  435.  
  436.      (EAITvarz2)
  437.      (princ)
  438.  
  439. );defun Q
  440.  
  441. (princ)
  442.  
  443.